Option Explicit
Sub Q_Sample034()
    ']wޥζMicrosoft Shell Controls And Automation
    Dim mySh As Shell32.Shell
    Set mySh = CreateObject("Shell.Application")
    mySh.MinimizeAll				'NҦ}Ҥ̤p
    'mySh.UndoMinimizeALL		'Ҧ^Ӫjp
    'mySh.TileHorizontally			'ñƩҦ}Ҥ
    'mySh.TileVertically  			'ñƩҦ}Ҥ
    'mySh.CascadeWindows 		'|ܩҦ}Ҥ
    Set mySh = Nothing				'
End Sub
